#!/usr/bin/perl
# portal
# version 0.1
# author: filipo
#
# main script for tagfashion
# dispatch the query string
# the possible values are
# id - user id
#
#
#
use DBI;
use warnings;
use strict;
use CGI;

use TagServer::Portal;

warn "Iniciando TagFashion\n\n";


# Instance of Control:
my $control = TagServer::Portal->new;
$control->cgi(new CGI);
$control->onEvt();

warn "OK, Fim\n";
